home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / util / rexx / lettre.lha / Lettre next >
Text File  |  1998-04-10  |  9KB  |  288 lines
  1. /*
  2.  Lettre commerciale par MARTIN David - Mai 1998
  3.  (martin@esa-igelec.univ-nantes.fr)
  4.  
  5.  Ce magicien a pour but de simplifier la création de lettres
  6.  dîtes commerciales. Certaines parties peuvent être personnalisées.
  7.  
  8.  REMARQUE : J'ai rencontré un problème en créant ce magicien ; de temps
  9.             en temps RESULT ne renvoie pas ce qu'il contient mais la
  10.             chaine de caractères "RESULT", d'où les tests sur cette chaine.
  11.             Si quelqu'un a l'explication et/ou la solution à ce problème,
  12.             qu'il me le dise SVP.
  13. */
  14.  
  15. OPTIONS RESULTS
  16.  
  17. INTRO:
  18.   WizardReq TITLE "Magicien Lettre Commerciale" LABEL "Quelle page voulez vous utiliser?" LABEL "...................................................." BUTTON 1 "Page courante" BUTTON 2 "Nouvelle page" BUTTON "-1" "QUITTER"
  19.   testmouse=RESULT
  20.   IF (testmouse="RESULT") THEN
  21.     SIGNAL INTRO
  22.   IF (testmouse=-1)THEN
  23.     EXIT
  24.   IF (testmouse=2) THEN DO
  25.     NEW
  26.     Address Value Result
  27.   END
  28.  
  29.   Document A4 "2.5cm" "2.5cm" "15cm" "2cm"
  30.   SHOWGUIDES
  31.  
  32. START:
  33.   WizardReq TITLE "Magicien Lettre Commerciale" LABEL "Entrez les coordonnées de l'émetteur" TEXTBOX 1 "Nom, Prénom" TEXTBOX 2 "Rue" TEXTBOX 3 "Code postal, ville" TEXTBOX 4 "Numéro de tel." BUTTON 1 "OK" BUTTON 2 "Utilisateur1" BUTTON 3 "Utilisateur2" BUTTON "-1" "QUITTER"
  34.   testmouse=RESULT
  35.   IF (testmouse=-1) THEN
  36.     EXIT
  37.  
  38.   WIZARD_GETTEXTBOX 1
  39.   nom=RESULT
  40.   WIZARD_GETTEXTBOX 2
  41.   rue=RESULT
  42.   WIZARD_GETTEXTBOX 3
  43.   code=RESULT
  44.   WIZARD_GETTEXTBOX 4
  45.   tel=RESULT
  46.  
  47.   IF (testmouse=2) THEN DO
  48.     nom="Utilisateur1 (à personnaliser)"
  49.     rue="Rue de l'utilisateur1"
  50.     code="00000  VILLE1"
  51.     tel="00-00-00-00-00"
  52.   END
  53.   IF (testmouse=3) THEN DO
  54.     nom="Utilisateur2 (à personnaliser)"
  55.     rue="Rue de l'utilisateur2"
  56.     code="11111  VILLE 2"
  57.     tel="11-11-11-11-11"
  58.   END
  59.   IF (testmouse="RESULT") THEN
  60.     SIGNAL START
  61.  
  62.   DRAWTEXTFRAME 1 "20mm" "10mm" "80mm" "29mm" "0.1mm" "0mm" "2mm" "0mm" TRANSPARENT NONE NONE
  63.   ACTIVATETEXTFRAME RESULT
  64.   PARAGRAPH 0 0 0 LEFT 6LPI SINGLE NONE 6
  65.   FONT SIZE "12pt"
  66.   TEXT nom
  67.   NEWPARAGRAPH
  68.   TEXT rue
  69.   NEWPARAGRAPH
  70.   TEXT code
  71.   NEWPARAGRAPH
  72.   IF (tel ~= "") THEN
  73.     TEXT 'tel. : ' tel
  74.  
  75.   WizardReq TITLE "Magicien lettre commerciale" LABEL "Entrez les coordonnées du destinataire" TEXTBOX 1 "Nom, Prénom" TEXTBOX 2 "Rue" TEXTBOX 3 "" TEXTBOX 4 "Code postal, ville" BUTTON 1 "_Normal" BUTTON 2 "En gras" BUTTON 3 "Plus gros" BUTTON 4 "En gras & plus gros" BUTTON "-1" "Ne _rien mettre"
  76.   testmouse=RESULT
  77.   IF (testmouse=-1) THEN
  78.     SIGNAL STEP1
  79.  
  80.   WIZARD_GETTEXTBOX 1
  81.   nom2=RESULT
  82.   WIZARD_GETTEXTBOX 2
  83.   rue2=RESULT
  84.   WIZARD_GETTEXTBOX 3
  85.   rue3=RESULT
  86.   WIZARD_GETTEXTBOX 4
  87.   code2=RESULT
  88.  
  89.   DRAWTEXTFRAME 1 "110mm" "43mm" "75mm" "34mm" "0.1mm" "0mm" "2mm" "0mm" TRANSPARENT NONE NONE
  90.   ACTIVATETEXTFRAME RESULT
  91.   PARAGRAPH 0 0 0 LEFT 6LPI DOUBLE 1 1
  92.   IF (rue3~="") THEN
  93.     PARAGRAPH 0 0 0 LEFT 6LPI ONEHALF 1 1
  94.  
  95.   FONT SIZE "12pt"
  96.   IF (testmouse=2) THEN
  97.     BOLD
  98.   IF (testmouse=3) THEN
  99.     FONT SIZE "14pt"
  100.   IF (testmouse=4) THEN DO
  101.     FONT SIZE "14pt"
  102.     BOLD
  103.   END
  104.  
  105.   TEXT nom2
  106.   NEWPARAGRAPH
  107.   TEXT rue2
  108.   NEWPARAGRAPH
  109.   IF (rue3~="") THEN DO
  110.     TEXT rue3
  111.     NEWPARAGRAPH
  112.   END
  113.   TEXT code2
  114.  
  115. STEP1:
  116.   WizardReq TITLE "Magicien lettre commerciale" LABEL "Références..." TEXTBOX 1 "Ville de départ" BUTTON 1 "_OK" BUTTON 2 "Prédéfinie" BUTTON "-1" "Ne _rien mettre"
  117.   testmouse=RESULT
  118.   DRAWTEXTFRAME 1 "110mm" "82mm" "75mm" "15mm" "0.1mm" "0mm" "2mm" "0mm" TRANSPARENT NONE NONE
  119.   ACTIVATETEXTFRAME RESULT
  120.   FONT SIZE "12pt"
  121.   PARAGRAPH 0 0 0 LEFT 6LPI SINGLE NONE 6
  122.  
  123.   IF (testmouse="RESULT") THEN
  124.     SIGNAL STEP1
  125.   IF (testmouse=-1) THEN
  126.     SIGNAL STEP2
  127.   
  128.   WIZARD_GETTEXTBOX 1
  129.   ville2=RESULT
  130.  
  131.   IF (testmouse=2) THEN
  132.     ville2= "Ma ville"
  133.  
  134.   IF (ville2~="") THEN DO
  135.     TEXT ville2 ','
  136.     NEWPARAGRAPH
  137.   END
  138.  
  139. STEP2:
  140.   WizardReq TITLE "Magicien Lettre Commerciale" LABEL "Entrez la nouvelle date" TEXTBOX 1 "date : Le ..." BUTTON 1 "_OK" BUTTON 2 "Date courante" BUTTON "-1" "Ne _rien mettre"
  141.   testmouse=RESULT
  142.  
  143.   IF (testmouse="RESULT") THEN
  144.     SIGNAL STEP2
  145.   IF (testmouse=-1) THEN
  146.     SIGNAL STEP3
  147.   IF (testmouse=1) THEN DO
  148.     WIZARD_GETTEXTBOX 1
  149.     newdate=RESULT
  150.     IF (newdate~="") THEN DO
  151.       TEXT 'Le '
  152.       TEXT newdate
  153.     END
  154.   END
  155.   IF (testmouse=2) THEN DO
  156.     TEXT 'Le '
  157.     INSERTDATE
  158.   END
  159.  
  160. STEP3:
  161.   WizardReq TITLE "Magicien lettre commerciale" LABEL "Objet de la lettre..." TEXTBOX 10 "Objet" BUTTON 1 "_OK" BUTTON "-1" "_Pas d'objet"
  162.   testmouse=RESULT
  163.  
  164.   IF (testmouse="RESULT") THEN
  165.     SIGNAL STEP3
  166.   IF (testmouse=-1) THEN
  167.     SIGNAL STEP4
  168.   
  169.   DRAWTEXTFRAME 1 "25mm" "95mm" "75mm" "15mm" "0.1mm" "0mm" "2mm" "0mm" TRANSPARENT NONE NONE
  170.   ACTIVATETEXTFRAME RESULT
  171.   FONT SIZE 12
  172.   PARAGRAPH 0 0 0 LEFT 6LPI SINGLE NONE 6
  173.  
  174.   WIZARD_GETTEXTBOX 10
  175.   object=RESULT
  176.   IF (object~="") THEN DO
  177.     TEXT 'Objet :'
  178.     NEWPARAGRAPH
  179.     TEXT object
  180.   END
  181.  
  182. STEP4:
  183.   WizardReq TITLE "Magicien lettre commerciale" LABEL "Pièces jointes - Annexes..." TEXTBOX 1 " pièces :" BUTTON 1 "_OK" BUTTON "-1" "_Pas de pièce"
  184.   testmouse=RESULT
  185.  
  186.   IF (testmouse="RESULT") THEN
  187.     SIGNAL STEP4
  188.   IF (testmouse=-1) THEN
  189.     SIGNAL STEP5
  190.  
  191.   DRAWTEXTFRAME 1 "25mm" "108mm" "75mm" "15mm" "0.1mm" "0mm" "2mm" "0mm" TRANSPARENT NONE NONE
  192.   ACTIVATETEXTFRAME RESULT
  193.   FONT SIZE 12
  194.   PARAGRAPH 0 0 0 LEFT 6LPI SINGLE NONE 6
  195.   WIZARD_GETTEXTBOX 1
  196.   piece=RESULT
  197.   IF (piece~="") THEN DO
  198.     TEXT 'Pièces jointes : '
  199.     NEWPARAGRAPH
  200.     TEXT piece
  201.   END
  202.  
  203. STEP5:
  204.   ACTIVATETEXTFRAME MAIN
  205.   FONT SIZE "12pt"
  206.   PARAGRAPH 0 0 "10mm" FULL AUTO SINGLE NONE 8
  207.   SETTAB LEFT "80mm"
  208.   TEXT '    Monsieur,'
  209.   NEWPARAGRAPH
  210.   NEWPARAGRAPH
  211.   NEWPARAGRAPH
  212.   NEWPARAGRAPH
  213.  
  214.   WizardReq TITLE "Magicien lettre commerciale" LABEL "Présélection de la formule de courtoisie..." LABEL "A qui écrivez vous ?" BUTTON 1 "A un _supérieur" BUTTON 2 "A un _égal" BUTTON 3 "A un _inférieur" BUTTON "-1" "Ne _rien mettre"
  215.   testmouse=RESULT
  216.  
  217.   IF (testmouse="RESULT") THEN DO
  218.     SELECTALL
  219.     ERASE
  220.     SIGNAL STEP5
  221.   END
  222.   IF (testmouse=-1) THEN DO
  223.     GOTOLINE 2
  224.     POSITION SOL
  225.     DELETE
  226.     DELETE
  227.     SIGNAL STEP9
  228.   END
  229.   IF (testmouse=1) THEN
  230.     SIGNAL STEP6
  231.   IF (testmouse=2) THEN
  232.     SIGNAL STEP7
  233.   IF (testmouse=3) THEN
  234.     SIGNAL STEP8
  235.  
  236. STEP6:
  237.   WizardReq TITLE "Magicien lettre commerciale" LABEL "Choisissez parmi ces formules de courtoisie :" LABEL "N°1: Je vous prie d'agréer, Monsieur, l'exp. de mes sentiments respectueux." LABEL "N°2: Je vous prie d'agréer, Monsieur, l'expression de mon profond respect." LABEL "N°3: Veuillez agréer, Monsieur, l'expression de mes sentiments dévoués." BUTTON 1 "---N°_1---" BUTTON 2 "---N°_2---" BUTTON 3 "---N°_3---"
  238.   testmouse=RESULT
  239.  
  240.   IF (testmouse="RESULT") THEN
  241.     SIGNAL STEP6
  242.   IF (testmouse=1) THEN
  243.     TEXT "Je vous prie d'agréer, Monsieur, l'expression de mes sentiments respectueux."
  244.   IF (testmouse=2) THEN
  245.     TEXT "Je vous prie d'agréer, Monsieur, l'expression de mon profond respect."
  246.   IF (testmouse=3) THEN
  247.     TEXT "Veuillez agréer, Monsieur, l'expression de mes sentiments dévoués."
  248.   SIGNAL STEP9
  249.  
  250. STEP7:
  251.   WizardReq TITLE "Magicien lettre commerciale" LABEL "Choisissez parmi ces formules de courtoisie :" LABEL "N°1: Veuillez croire, Monsieur, à mes sentiments distingués." LABEL "N°2: Recevez, Monsieur, l'assurance de ma parfaite considération." LABEL "N°3: Veuillez croire, Monsieur, à mes sentiments les meilleurs." LABEL "N°4 :Veuillez agréer, Monsieur, l'exp. de mes sentiments distingués." LABEL "N°5 :Veuillez agréer, Monsieur, l'exp. de mes sentiments les meilleurs." BUTTON 1 "--N°_1--" BUTTON 2 "--N°_2--" BUTTON 3 "--N°_3--" BUTTON 4 "--N°_4--" BUTTON 5 "--N°_5--"
  252.   testmouse=RESULT
  253.  
  254.   IF (testmouse="RESULT") THEN
  255.     SIGNAL STEP7
  256.   IF (testmouse=1) THEN
  257.     TEXT "Veuillez croire, Monsieur, à mes sentiments distingués."
  258.   IF (testmouse=2) THEN
  259.     TEXT "Recevez, Monsieur, l'assurance de ma parfaite considération."
  260.   IF (testmouse=3) THEN
  261.     TEXT "Veuillez croire, Monsieur, à mes sentiments les meilleurs."
  262.   IF (testmouse=4) THEN
  263.     TEXT "Veuillez agréer, Monsieur, l'expression de mes sentiments distingués."
  264.   IF (testmouse=5) THEN
  265.     TEXT "Veuillez agréer, Monsieur, l'expression de mes sentiments les meilleurs."
  266.   SIGNAL STEP9
  267.  
  268. STEP8:
  269.   WizardReq TITLE "Magicien lettre commerciale" LABEL "Choisissez parmi ces formules de courtoisie :" LABEL "N°1: Recevez, je vous prie, l'assurance de mes meilleurs sentiments." LABEL "N°2: Recevez, je vous prie, l'assurance de meilleurs salutations." BUTTON 1 "---N°_1---" BUTTON 2 "---N°_2---"
  270.   testmouse=RESULT
  271.  
  272.   IF (testmouse="RESULT") THEN
  273.     SIGNAL STEP8
  274.   IF (testmouse=1) THEN
  275.     TEXT "Recevez, je vous prie, l'assurance de mes meilleurs sentiments."
  276.   IF (testmouse=2) THEN
  277.     TEXT "Recevez, je vous prie, l'assurance de meilleurs salutations."
  278.   SIGNAL STEP9
  279.  
  280. STEP9:
  281.   GOTOLINE 2
  282.   POSITION SOL
  283.   WizardReq TITLE "Magicien Lettre Commerciale" LABEL "Le travail du magicien s'arrête là," LABEL "à vous de jouer maintenant!" BUTTON 1 "------_OK------" BUTTON "-1" "------OK------"
  284.   testmouse=RESULT
  285.   IF (testmouse="RESULT") THEN
  286.     SIGNAL STEP9
  287.   EXIT
  288.